home *** CD-ROM | disk | FTP | other *** search
/ EDUCORP 8 / Educorp2Compilation.sit / educorp2 / Demos / OpticMac Demo / OpticMac™ / OpticMac™ / card_5074.txt < prev    next >
Encoding:
Text File  |  1989-06-08  |  4.3 KB  |  206 lines
  1. -- card: 5074 from stack: in
  2. -- bmap block id: 5275
  3. -- flags: 0000
  4. -- background id: 2725
  5. -- name: Patient
  6. ----- HyperTalk script -----
  7. on opencard
  8.   put short name of me into bg field "Viewer"
  9.   updatemenus
  10.   global cardticks
  11.   put the ticks into cardticks
  12. end opencard
  13.  
  14. on idle
  15.   global cardticks, showfield
  16.   if showfield then
  17.     dotimecheck short name of me, cardticks, 15
  18.   end if
  19.   pass idle
  20. end idle
  21.  
  22. on mousedown
  23.   global cardticks, showfield
  24.   put false into showfield
  25.   put the ticks into cardticks
  26.   hide card field "Prompter" of card short name of me
  27. end mousedown
  28.  
  29.  
  30. -- part 10 (button)
  31. -- low flags: 00
  32. -- high flags: 2000
  33. -- rect: left=119 top=123 right=137 bottom=219
  34. -- title width / last selected line: 0
  35. -- icon id / first selected line: 0 / 0
  36. -- text alignment: 1
  37. -- font id: 0
  38. -- text size: 12
  39. -- style flags: 0
  40. -- line height: 16
  41. -- part name: Pop Box
  42. ----- HyperTalk script -----
  43. on mouseUp
  44.   popup "PatCity",4,13,4
  45. end mouseUp
  46.  
  47.  
  48.  
  49. -- part 24 (button)
  50. -- low flags: 00
  51. -- high flags: 2000
  52. -- rect: left=162 top=183 right=197 bottom=262
  53. -- title width / last selected line: 0
  54. -- icon id / first selected line: 0 / 0
  55. -- text alignment: 1
  56. -- font id: 0
  57. -- text size: 12
  58. -- style flags: 0
  59. -- line height: 16
  60. -- part name: Pop Box
  61. ----- HyperTalk script -----
  62. on mouseUp
  63.   popup "PatRelation",2,11,2
  64. end mouseUp
  65.  
  66.  
  67.  
  68. -- part 25 (button)
  69. -- low flags: 00
  70. -- high flags: 2000
  71. -- rect: left=162 top=199 right=213 bottom=262
  72. -- title width / last selected line: 0
  73. -- icon id / first selected line: 0 / 0
  74. -- text alignment: 1
  75. -- font id: 0
  76. -- text size: 12
  77. -- style flags: 0
  78. -- line height: 16
  79. -- part name: Pop Box
  80. ----- HyperTalk script -----
  81. on mouseUp
  82.   popup "PatRelation",2,11,3
  83. end mouseUp
  84.  
  85.  
  86.  
  87. -- part 26 (button)
  88. -- low flags: 00
  89. -- high flags: 2000
  90. -- rect: left=103 top=243 right=257 bottom=151
  91. -- title width / last selected line: 0
  92. -- icon id / first selected line: 0 / 0
  93. -- text alignment: 1
  94. -- font id: 0
  95. -- text size: 12
  96. -- style flags: 0
  97. -- line height: 16
  98. -- part name: Pop Box
  99. ----- HyperTalk script -----
  100. on mouseUp
  101.   popup "PatReferral",8,9,9
  102. end mouseUp
  103.  
  104.  
  105.  
  106. -- part 27 (button)
  107. -- low flags: 00
  108. -- high flags: 2000
  109. -- rect: left=103 top=259 right=273 bottom=151
  110. -- title width / last selected line: 0
  111. -- icon id / first selected line: 0 / 0
  112. -- text alignment: 1
  113. -- font id: 0
  114. -- text size: 12
  115. -- style flags: 0
  116. -- line height: 16
  117. -- part name: Pop Box
  118. ----- HyperTalk script -----
  119. on mouseUp
  120.   popup "PatReferral",8,9,0
  121. end mouseUp
  122.  
  123.  
  124.  
  125. -- part 28 (button)
  126. -- low flags: 00
  127. -- high flags: 2000
  128. -- rect: left=103 top=275 right=289 bottom=151
  129. -- title width / last selected line: 0
  130. -- icon id / first selected line: 0 / 0
  131. -- text alignment: 1
  132. -- font id: 0
  133. -- text size: 12
  134. -- style flags: 0
  135. -- line height: 16
  136. -- part name: Pop Box
  137. ----- HyperTalk script -----
  138. on mouseUp
  139.   popup "PatReferral",8,9,0
  140. end mouseUp
  141.  
  142.  
  143.  
  144. -- part 29 (button)
  145. -- low flags: 00
  146. -- high flags: 2000
  147. -- rect: left=103 top=291 right=305 bottom=151
  148. -- title width / last selected line: 0
  149. -- icon id / first selected line: 0 / 0
  150. -- text alignment: 1
  151. -- font id: 0
  152. -- text size: 12
  153. -- style flags: 0
  154. -- line height: 16
  155. -- part name: Pop Box
  156. ----- HyperTalk script -----
  157. on mouseUp
  158.   popup "PatReferral",8,9,0
  159. end mouseUp
  160.  
  161.  
  162.  
  163. -- part 66 (button)
  164. -- low flags: 00
  165. -- high flags: A003
  166. -- rect: left=288 top=92 right=112 bottom=361
  167. -- title width / last selected line: 0
  168. -- icon id / first selected line: 0 / 0
  169. -- text alignment: 1
  170. -- font id: 0
  171. -- text size: 12
  172. -- style flags: 0
  173. -- line height: 16
  174. -- part name: Coverage
  175. ----- HyperTalk script -----
  176. on mouseUp
  177.   go to card "Coverage"
  178. end mouseUp
  179.  
  180.  
  181.  
  182. -- part 67 (field)
  183. -- low flags: 81
  184. -- high flags: 2004
  185. -- rect: left=136 top=150 right=290 bottom=469
  186. -- title width / last selected line: 0
  187. -- icon id / first selected line: 0 / 0
  188. -- text alignment: 0
  189. -- font id: 0
  190. -- text size: 12
  191. -- style flags: 0
  192. -- line height: 16
  193. -- part name: Prompter
  194.  
  195.  
  196. -- part contents for background part 19
  197. ----- text -----
  198. Patient
  199.  
  200. -- part contents for card part 62
  201. ----- text -----
  202. 1234567890123456789012346
  203.  
  204. -- part contents for card part 67
  205. ----- text -----
  206. The Patient screen stores information on each individual patient as well as referrals.  To continue, try selecting one of the Pop-boxes to see just how easy data entry can be, or select one of the view buttons on the bottom of the screen.  You may also select Transfer or Quit from the File menu, or select the HCC logo to return to the HCC home card.